home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / listing 22 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  962b  |  31 lines
  1. 10 PRINTCHR$(147):FOR I=0 TO 63:POKE 832+I,0:NEXT
  2. 20 GOSUB 60000
  3. 999 END
  4. 60000 DATA ".........[209][209][209][209][209][209][209]........"
  5. 60001 DATA ".......[209][209][209][209][209][209][209][209][209][209][209]......"
  6. 60002 DATA "......[209][209][209][209][209][209][209][209][209][209][209][209][209]....."
  7. 60003 DATA "......[209][209][209][209][209]...[209][209][209][209][209]....."
  8. 60004 DATA ".....[209][209][209][209][209].[209][209][209]..[209][209][209][209]...."
  9. 60005 DATA ".....[209][209][209][209][209].[209][209][209].[209][209][209][209][209]...."
  10. 60006 DATA ".....[209][209][209][209][209].[209][209][209]..[209][209][209][209]...."
  11. 60007 DATA "......[209][209][209][209][209]...[209][209][209][209][209]....."
  12. 60008 DATA "......[209][209][209][209][209][209][209][209][209][209][209][209][209]....."
  13. 60009 DATA "......[209][209][209][209][209][209][209][209][209][209][209][209][209]....."
  14. 60010 DATA "......[209].[209][209][209][209][209][209][209][209][209].[209]....."
  15. 60011 DATA ".......[209].[209][209][209][209][209][209][209].[209]......"
  16. 60012 DATA ".......[209]..[209][209][209][209][209]..[209]......"
  17. 60013 DATA "........[209]..[209][209][209]..[209]......."
  18. 60014 DATA "........[209]..[209][209][209]..[209]......."
  19. 60015 DATA ".........[209]..[209]..[209]........"
  20. 60016 DATA ".........[209]..[209]..[209]........"
  21. 60017 DATA "..........[209][209][209][209][209]........."
  22. 60018 DATA "..........[209][209][209][209][209]........."
  23. 60019 DATA "..........[209][209][209][209][209]........."
  24. 60020 DATA "...........[209][209][209].........."
  25. 60100 V=53248:POKE V,200:POKE V+1,100:POKE V+21,1:POKE V+39,14:POKE 2040,13
  26. 60105 POKE V+23,1:POKE V+29,1
  27. 60110 FOR I=0 TO 20:READ A$:FOR K=0 TO 2:T=0:FOR J=0 TO 7:B=0
  28. 60140 IF MID$(A$,J+K*8+1,1)="[209]" THEN B=1
  29. 60150 T=T+B*2^(7-J):NEXT:PRINT T;:POKE 832+I*3+K,T:NEXT:PRINT:NEXT
  30. 60200 RETURN
  31.